MacFormat 1995 April/macformat-023.iso/Shareware City/Developers/RLaB/rlib/isinf.r

Text File | 1994-02-21 | 415 b | 17 lines | [TEXT/RLAB]

//-------------------------------------------------------------------//

//  Syntax:    isinf ( X )

//  Description:

//  Isinf returns a matrix the same size as X containing zeros and
//  ones. The ones locate the values in X that are infinte.

//-------------------------------------------------------------------//

isinf = function ( X )
{
  return ones (size (X))*inf() == X || ones (size (X))* -inf() == X;
};